home *** CD-ROM | disk | FTP | other *** search
/ MacAddict 4 / MacAddict_004_1996_12.iso / Sponsors / Bungie / Abuse Demo / lisp / common.lsp < prev    next >
Lisp/Scheme  |  1996-08-01  |  4KB  |  144 lines
  1. ;; Copyright 1995 Crack dot Com,  All Rights reserved
  2. ;; See licensing information for more details on usage rights
  3.  
  4. ; draw function for characters only displayed during edit mode 
  5. ; such as start, etc.
  6. ; (defun dev_draw () (if (edit_mode) (draw) nil))       -- compiled C function --
  7.  
  8. /* written in C
  9. (defun middle_draw ()
  10.   (let ((y (y)))
  11.     (set_y (+ (y) (/ (picture_height) 2)))
  12.     (draw)
  13.     (set_y y)))
  14.     
  15.  
  16.  
  17. (defun push_char (xamount yamount)
  18.   (let ((bgx (with_object (bg) (x)) (x))
  19.     (bgy (with_object (bg) (y)) (y)))
  20.     (if (and (<= bgy (y)) (< (disty) yamount) (< (distx) xamount))
  21.     (let ((amount (if (> bgx (x))
  22.               (- xamount (- bgx (x)))
  23.             (- (- (x) bgx) xamount))))
  24.       (with_object (bg) (try_move amount 0))))))
  25.  
  26. */
  27.  
  28. (defun push_char (xamount yamount)
  29.   (let ((bgx (with_object (bg) (x)) (x))
  30.     (bgy (with_object (bg) (y)) (y)))
  31.     (if (and (<= bgy (y)) (< (disty) yamount) (< (distx) xamount))
  32.     (let ((amount (if (> bgx (x))
  33.               (- xamount (- bgx (x)))
  34.             (- (- (x) bgx) xamount))))
  35.       (with_object (bg) (try_move amount 0))))))
  36.  
  37.  
  38.  
  39. (defun do_nothing () (next_picture) T)
  40.  
  41. (defun lhold_ai ()
  42.   (if (> (total_objects) 0)
  43.       (progn
  44.     (set_x (with_object (get_object 0) (x)))
  45.     (set_y (with_object (get_object 0) (- (y) (/ (picture_height) 2) )))))
  46.   (if (eq (total_lights) 1)
  47.       (progn
  48.     (set_light_x (get_light 0) (x))
  49.     (set_light_y (get_light 0) (y)))
  50.     nil)
  51.   T)
  52.     
  53.  
  54.  
  55. (def_char LIGHTHOLD
  56.   (funs  (ai_fun   lhold_ai)
  57.      (draw_fun dev_draw))
  58.   (states "art/misc.spe"     
  59.       (stopped           "lhold")))
  60.  
  61.  
  62.  
  63. (def_char OBJ_MOVER 
  64.   (funs (ai_fun       mover_ai)
  65.     (constructor  mover_cons)
  66.     (draw_fun     dev_draw))
  67.   (range 300 40)
  68.   (fields ("aitype" obj_frames)
  69.        ("aistate" obj_frame))
  70.   (states "art/misc.spe" (stopped '("mover" "mover" ))))
  71.  
  72. /*    Compiled C       
  73. (defun mover_ai ()
  74.   (if (eq (total_objects) 2)
  75.       (let ((dest (get_object 0))
  76.         (mover (get_object 1)))
  77.     (if (< (aistate) 2)        ; transfer object to next mover          
  78.         (progn
  79.           (with_object dest 
  80.                (progn
  81.                  (link_object mover)
  82.                  (set_aistate (aitype))))
  83.           (remove_object mover))
  84.       (progn          
  85.         (set_aistate (- (aistate) 1))
  86.         (let ((newx (- (with_object dest (x)) (/ (* (- (with_object dest (x)) (x)) (aistate)) (aitype))))
  87.           (newy (- (with_object dest (y)) (/ (* (- (with_object dest (y)) (y)) (aistate)) (aitype)))))
  88.           (with_object mover 
  89.                (progn 
  90.                  (platform_push (- newx (x)) (- newy (y)))
  91.                  (set_x newx)
  92.                  (set_y newy)))))))
  93.     nil)
  94.   T)
  95. */
  96.  
  97. (defun mover_cons () (set_aitype 20))
  98.  
  99.  
  100. /*  // compiled C
  101. (defun respawn_ai ()
  102.   (let ((x (total_objects)))
  103.     (if (eq x 0)                           ; if not linked to anything return
  104.     T
  105.       (let ((last (get_object (- x 1))))   ; see if the last object has the same position as us
  106.     (if (and (eq (with_object last (x)) (x)) (eq (with_object last (y)) (y)))
  107.         (if (eq (aistate) 1)            
  108.         (if (eq (with_object last (fade_count)) 0)
  109.             (set_aistate 1)
  110.           (with_object last (set_fade_count (- (with_object last (fade_count)) 1))))
  111.           T)                          ; if so then return
  112.       (if (eq (aistate) 1)
  113.           (set_aistate 0)
  114.         (if (> (state_time) (xvel))
  115.         (let ((new (add_object (with_object (get_object (random x)) (otype)) (x) (y))))
  116.           (with_object new (set_fade_count 15))   ; make faded out so we can fade it in
  117.           (link_object new)
  118.           (set_aistate 1))
  119.           T))))))
  120.   T)
  121. */
  122.  
  123.  
  124. (defun respwan_cons () (set_xvel 50)) 
  125.  
  126.  
  127. (def_char RESPAWN 
  128.   (funs (ai_fun      respawn_ai)
  129.     (draw_fun    dev_draw)    
  130.     (constructor respwan_cons))
  131. ;  (flags (unlistable T))
  132.   (fields ("xvel" respawn_reg))
  133.   (range 100 100)
  134.   (states "art/misc.spe"
  135.       (stopped           "respawn")))
  136.  
  137.  
  138.  
  139. (def_char MARKER
  140.   (funs (ai_fun   do_nothing)
  141.     (draw_fun dev_draw))
  142.   (states "art/misc.spe" (stopped "marker")))
  143.  
  144.